Attribute VB_Name = "Module3"
Sub RemoveCarriage()
    For Each e In Selection
        e = Replace(e.Text, Chr(13), "", , , vbTextCompare)
    Next
End Sub
